--  --------------------------------------------------------------------------
--  @Main:        test_html_writer.adb
--
--  @Project:     HTML_Writer
--  @Version:     1.0
--  @Created:     2011-12-06
--  @Author:  Benedikt Markt, Aleksander Zotov, Marcel Kranz
--
--  @Description: Creates hello.html.
--
--  @Modifications:

with HTML_Writer;
with Ada.Text_IO;

procedure Test_Html_Writer is

   HTML_File : HTML_Writer.HTML_Writer_Type;

begin
   HTML_File := HTML_Writer.Initialize ("hello.html");
   HTML_Writer.Start_Page (HTML_File);
   HTML_Writer.Write_Head (HTML_File, "Hello HTML");
   HTML_Writer.Start_Body (HTML_File);
   HTML_Writer.Write_Heading (HTML_File, "Hello HTML", 1);
   HTML_Writer.Add_Paragraph
     (HTML_File, "Possibly, this is my first HTML file!");
   HTML_Writer.Start_List (HTML_File);
   HTML_Writer.Start_List_Item (HTML_File);
   HTML_Writer.Add_Text (HTML_File, "First list item");
   HTML_Writer.Finish_List_Item (HTML_File);
   HTML_Writer.Start_List_Item (HTML_File);
   HTML_Writer.Add_Text (HTML_File, "Second list item");
   HTML_Writer.Finish_List_Item (HTML_File);
   HTML_Writer.Start_List_Item (HTML_File);
   HTML_Writer.Add_Text (HTML_File, "Third list item");
   HTML_Writer.Finish_List_Item (HTML_File);
   HTML_Writer.Finish_List (HTML_File);
   HTML_Writer.Finish_Body (HTML_File);
   HTML_Writer.Finish_Page (HTML_File);
   Ada.Text_IO.Close (HTML_File.File);
end Test_Html_Writer;
